Chart A
#plot of diet pepsi vs normal pepsi by day of the week
instacart_bev %>%
filter(product_name == "Pepsi" | product_name == "Diet Pepsi" | product_name == "Diet Pepsi Wild Cherry" | product_name == "Diet Pepsi Slim Cans" | product_name == "Diet Pepsi Soda" | product_name == "Diet Pepsi Pack") %>%
mutate(diet = if_else(product_name == "Pepsi", "Pepsi", "Diet Pepsi")) %>%
group_by(diet, order_hour_of_day) %>%
summarise(n = n()) %>%
plot_ly(x = ~order_hour_of_day, y = ~n, color = ~diet,
type = "scatter")
## No scatter mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels